www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Xml/FtpDate.asp
<%Response.Charset = "GB2312"%> <!--#include file="../../Conn.asp" --> <!--#include file="../YWNT_TMS_inc/YWNT_TMS_Function.asp" --> <%Call CheckLogin("Movie") on error resume next FtpMovieNum=Request.QueryString("Num") if FtpMovieNum="" then FtpMovieNum=0 end if FtpMovieID=split(Request.QueryString("ID"),",") FtpMovieIDNum=UBound(FtpMovieID) if FtpMovieIDNum<>0 then FtpMovieIDNum=FtpMovieIDNum+1 else FtpMovieIDNum=1 end if MovieClass=Request.QueryString("MovieClass") MovieLines=Request.QueryString("MovieLines") Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_Movie where ID="&FtpMovieID(FtpMovieNum)&" and xunlei=0 Order by ID desc" Rs.open sql,Conn,1,1 YWNT_TMS_ID=RS("ID") YWNT_TMS_SeverID=RS("SeverID") YWNT_TMS_TypeID=RS("TypeID") YWNT_TMS_MovieName=RS("MovieName") YWNT_TMS_MovieActor=RS("MovieActor") YWNT_TMS_MovieRegion=RS("MovieRegion") YWNT_TMS_MoviePic=RS("MoviePic") YWNT_TMS_MovieContent=RS("MovieContent") RS.close set RS=nothing if Request.ServerVariables("SERVER_PORT")<>80 then WebUrl="http://"&Request.ServerVariables("SERVER_NAME")&":"&Request.ServerVariables("SERVER_PORT") else WebUrl="http://"&Request.ServerVariables("SERVER_NAME") end if if LCase(left(YWNT_TMS_MoviePic,7))<>"http://" then YWNT_TMS_MoviePic=WebUrl&YWNT_TMS_MoviePic end if xml="<?xml version=""1.0"" encoding=""Utf-8"" ?>" &vbcrlf xml=xml&"<movie_list Weburl="""&WebUrl&""">" &vbcrlf xml=xml&"<movie id="""&YWNT_TMS_ID&""" type="""&DataContent("ClassName","YWNT_TMS_MovieClass",YWNT_TMS_TypeID)&""" playtype="""&MovieClass&""" MovieLines="""&MovieLines&""" change=""add"">" &vbcrlf xml=xml&"<name>"&vbcrlf&Xmlzh(YWNT_TMS_MovieName)&vbcrlf&"</name>" &vbcrlf xml=xml&"<pic>"&vbcrlf&YWNT_TMS_MoviePic&vbcrlf&"</pic>" &vbcrlf xml=xml&"<actor>"&vbcrlf&Xmlzh(YWNT_TMS_MovieActor)&vbcrlf&"</actor>" &vbcrlf xml=xml&"<region>"&vbcrlf&DataContent("RegionName","YWNT_TMS_MovieRegion",YWNT_TMS_MovieRegion)&vbcrlf&"</region>" &vbcrlf xml=xml&"<description>"&vbcrlf&Xmlzh(YWNT_TMS_MovieContent)&vbcrlf&"</description>" &vbcrlf xml=xml&"<file>"&vbcrlf if MovieClass=1 then xml=xml&FtpMovieUrl("YWNT_TMS_MovieUrl","MovieUrl",YWNT_TMS_ID,YWNT_TMS_SeverID) else xml=xml&FtpMovieUrl("YWNT_TMS_P2PUrl","P2PUrl",YWNT_TMS_ID,YWNT_TMS_SeverID) end if xml=xml&"</file>"&vbcrlf xml=xml&"</movie>"&vbcrlf xml=xml&"</movie_list>"&vbcrlf dim https set https=server.createobject("msxml2.xmlhttp") https.open "post","http://u.ywnt.net/response.asp",false https.send xml if https.readystate=4 then response.write Request.QueryString("ID")&"*|*"&FtpMovieNum+1&"*|*"&FtpMovieIDNum&"*|*"&MovieClass&"*|*"&MovieLines end if Function DataContent(Out,Table,ID) Dim RS Set RS = Server.CreateObject(YWNT_TMS_RS) RS.Open ("Select "&Out&" From "&Table&" Where ID="&ID&""), Conn, 1,1 DataContent = RS(Out) RS.Close Set RS = Nothing End Function Function FtpMovieUrl(Table,RSName,ID,SeverID) SeverUrl=DataContent("P2pUrl","YWNT_TMS_Sever",SeverID) Set Rs = server.CreateObject(YWNT_TMS_RS) sql="Select "&RSName&" from "&Table&" where MovieID="&ID&"" sql=sql&" order by id asc" Rs.open sql,Conn,1,1 do while not RS.eof IF MovieClass=1 Then Movie_Url=Movie_Url&"<movieurl>"&vbcrlf&replace(Rs(RSName),"&","&")&vbcrlf&"</movieurl>" &vbcrlf Else if SeverUrl<>"" and DataContent("P2PType","YWNT_TMS_Sever",SeverID)=4 then Movie_Url=Movie_Url&"<movieurl>"&vbcrlf&SeverUrl&"|"&replace(Rs(RSName),"&","&")&vbcrlf&"</movieurl>" &vbcrlf else Movie_Url=Movie_Url&"<movieurl>"&vbcrlf&SeverUrl&replace(Rs(RSName),"&","&")&vbcrlf&"</movieurl>" &vbcrlf end if End If RS.movenext loop RS.close set RS=nothing FtpMovieUrl=Movie_Url End Function Function Xmlzh(Content) Content=replace(Content,"<","<") Content=replace(Content,"&","&") Xmlzh=Content End Function %>